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MODULE RMSOPEN (LANGUAGE COL 18536) ’ 
oe = 'v04-000' 
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ie ALL RIGHTS RESERVED. 


1 

1 

1 

1 

1 

1 !* THIS i ike 44 FURNISHED og A Be ae AND MAY BE USED AND gh a 
: mn iY i" COR kt TH rene oF TH 
1 

1 

1 

1 

j 

1 

1 

1 

1 

1 

1 

1 

1 


® 
® 
® 
*® 
® 
© 
® 
® 
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i TRANSFERRED. . 
® 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
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:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
'® CORPORATION. 
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!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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++ 
FACILITY: 
ABSTRACT: 


ENVIRONMENT: 


AUTHOR: 


MODIFIED BY: 
v03-016 


v03-015 


v03-014 


v03-013 


v03-012 
v03-011 
v03-010 
v03-009 
v03-008 


v03-007 
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v03-006 


RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 


organization independent code for indexed file open 


VAX/VMS OPERATING SYSTEM 

Wendy Koenig CREATION DATE: 24-MAR-78 13:20 

RASO284 Ron Schaefer 30-Mar-1984 

Fix STV value on error pachs for RMS$_RPL and RMS$_WPL errors. 

DASO001 David Solomon 25-Mar-1984 

Fix broken branch to RMSALDBUF . 

$HZ0001 atone H. Zalewski 27-Feb-1984 

If you allocate a BDB, you MUST bump the Local buffer count 

(IFB$W_AVLCL). 

JWT0141 Jim Teague 11-Nov-1983 

Oops, IFBSV_RUM changed to IFB$V_ONLY_RU 

JWT0140 Jim Teague 11-Nov-1983 

Must check more than one RU bit, as was done in 

v03-010. 

MCNOO013 Maria del C. Nasr 24-F eb-1983 

Reorganize Linkages. 

TMKO005 Todd M. Katz 20-Jan-1983 

Add support for RMS Journalling and Recovery of ISAM files, 

For SOPEN this boils down to not allowing a prologue 1 or 2 

file to be opened if it is marked for any type of journalling. 

KBT0464 Keith B. Thompson 13-Jan-1983 | 
Get BKS from key descriptors to aviod LCL bugchecks due 
to wrong file header info 
KBT0460 Keith B. Thompson 12-Jan-1983 
Allocate a buffer for reading in prologue (it use to use 
the buffer allocated for the fwa) | 
KBT0225 Keith B. Thompson 23-Aug-1982 | 
Reorganize psects 
TMK0004 Todd M. Katz 18-Aug-1982 | 
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085 

OR V03-006 TMK0004 Todd M. Katz 18-Aug-1982 

OBS Allow prologue 3 files with alternate indicies to be opened. 

089 V03-005 TMKO003 Todd M. katz 01-Jul-1982 

090 Implement RMS cluster solution for next record positioning. 
091 This emans that RMS no Longer has to zero the pointer to the 
O36 NRP cell in the IFAB, IFBSL_NRP_PTR, because the next record 

009 positioning context is now kept locally in the IRAB instead 

Boge of in a separate systemwide location. 


Change the pretegue number check to allow prologue 3 
Change check_two to make sure that at least two index records 
can fit into an index bucket. 


H 1! 

; 1! 

. 1! 

; x 1 i 

3; Ww 1! 

; 4! : 

; 38 1 

; 94 1! 

: 36 1 i 

: 97 096 i V03-004 MCN0012 Maria del C. Nasr 29-Jun-1982 
; #298 097 1! Allow different nee data fypes for prologue 5 files. 
: 100 48 } This undoes part of TMKOO02. 
: 101 0100 1} vO3-003 KBTO0S4 Keith B. Thompson 8-Jun-1982 | 
; 108 bi : } Allocate index blocks on all but B10 or UFO opens 

; 104 0108 1 / vO3-002 TMK0002 Todd M. Katz 06-May-1982 

: 105 01046 1! I added code to prevent prologue 3 files with key types 

; 106 0105 1! other than string and/or alternate indicies from being opened. 

; 107 0106 1! This code is required for V3A - V3B wooed ye it will go 

; 108 0107 1! out as a V3.1 patch, and it must be removed for $8 when 

; 109 0108 1! alternate data types and indicies are supported. The error that 

3 119 344 : will be returned is: error in prologue version. 

: ° 
; Ng 0111 1! I also fixed up some of the error paths which were not 
s 11 Bit¢ 1! releasing all accessed VBNs of the file before returning 
: 113 OEE : their appropriate error. 

: 116 0115 1} vO3-001 TMK0001 Todd M. Katz 24-Mar-1982 

: EA B19 : } Change all references from IFB$B_KBUFSZ to IFB$W_KBUFSZ. 
: 119 0118 1 | v02-020 cps0005 C D Saether 5-F eb-1982 

: 120 a BN : Back out V02-019. GBC is now a record attribute. 

; 122 0121 1: v02-019 cDSOv04 C D Saether 3-Jan-1982 | 
; is? 8158 : } Return GBC field from prologue. 

; 138 0154 1! v02-018 CDS0003 CD Saether — 9-Aug-1981 
; 1¢6 BIS? : Use alternate Linkage declaration for RELEASE. 

: 128 0127 1! v02-017 cps0002 C D Saether 16-Jul-1981 

; 136 0129 : } Remove check for ppf file. 

: 131 0130 1: V02-016 MCNOO11 Maria del C. Nasr 05-Jun-1981 

3 136 0131 1! Make keybuffer size 2 bytes longer for compressed indexes, 

: i 4 ¢ : and primary key. 

; 138 1 4 1! v02-015 PSK0002 PS Knibbe 20-Apr-1981 

: 136 biz : Change some variable names 

; 138 a3 v02-014 PSK0001 P S$ Knibbe 17-Mar-1981 

> 140 139 1: 

3: «141 pie? 1! 

3 «6142 141 #1! 
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V02-013 REFORMAT R A SCHAEFER 23-Jul-1980 14:09 


<2 
F 


e 4 
(2) | 
| 


v02-010 cdS0000 Chris Saether, 26-jun-79 17:55 
don't allocate stuff if UFO set 


' i 
} Reformat the source 
i v02-012 CDS0001 C D SAETHER 13=MAR-1980 

} fix vO11 fix to check bio in ifab, not fab 
i v02-011 RAS0000 Ron Schaefer 27-NOV-79 09:30 

: Allow BIO access to any device (i.e. magtape), do not read 

prolog if so. 

i 

i 

! 


| 
ieeee | 
LIBRARY ‘RMSLIB:RMS'; | 
REQUIRE 'RMSSRC:RMSIDXDEF’; | 
define default psects for code | 
SECT 
CODE = RMSRMS3(PSEC 
PLIT = RMSRMS3(PSEC 
define Linkages 
LINKAG 
| 
| 
| 
| 
| 


T_ATIR), 
TZATTR): 


1 
_Two * = JSB (REGISTER = 6) : 
GLOBAL (R_FAB,R_IFAB); 
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FORWARD ROUTINE 
RMSOPEN3B : RLSFABREG 
CHECK_TwO : RLSCHECK_TWwO; 
: external routines 
EXTERNAL ROUTINE 
RMSALDBUF : RLSALDBUF ADDRESSING_MODE( LONG_RELATIVE ), 
RMSCHXSUM : RLSCHKSUM, 
RMSCACH LSCACHE 
RMSCLOSE3 : RLSLINK 7.1011, 
RMSRELEASE : RLSRELEASE FAB 
RMSAL_KEY_DESC : RL$LINK_7_10_11; 
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ZSBTTL _‘RMSOPEN3B' 
GLOBAL ROUTINE RMSOPEN3B : RLSFABREG = 
i 


FUNCTIONAL DESCRIPTION: 


This routine perfores the file open functions that are 
specific to the indexed file organization, including: 


1 == reading in Hy prologue 
and se ng up various fields in the FAB and IFAB 
2 -- setting up the index descriptors 
Linked off the IFAB) and counting the keys 
3 -- Seteraining the size of the key buffers 
and setting kbufsz (IFAB) appropriately 


CALLING SEQUENCE: 


enters via case branch from RMSSOPEN and jsb from RMSOPEN3 
returns via rsb to RMSCOPRIN. 


INPUT PARAMETERS: 
none 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

! 

i 

i 

i 

IMPLICIT INPUTS: 
: R11 IMPURE AREA address 
RO FAB address 
i 
i 
! 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


R8 FAB address 
the contents of the FAB 


OUTPUT PARAMETERS: 
none 


IMPLICIT OUTPUTS: 
R10 is the address of the IFAB 
various fields in the IFAB and FAB are initialized 
index descriptors are ailocated 
ROUTINE VALUE: 
standard rms, in particular SUC,PLG,RPL,IFA,KSI,ENV 
SIDE EFFECTS: 
ney wait quite some time for prologue to become free initially. 
Allocates index descriptors ‘ 
In the case of an error, key descriptors are deailocated 
R1 - RS may be destroyed 


BEGIN 
! Define common registers 


V4.0-74 P 
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i 
EXTERNAL REGISTER 
COMMON. FAB. STR; 
GLOBAL REGISTER 
COMMON. 10. STR; 


IFAB = .IFAB_FILE; 
Have to zero this since it has a conflicting earlier use in the parse 
iFAB C IFBSL_IDX_PTR J = 0; 


' Allocate a BDB in preparation for nyeeres in the prologue. Even if we 
do not use it here, it may be used for XAB processing later on. 


RETURN_ON_ERROR( RMSALDBUF( 512 ) ) ' Get a BD 


IFABCIFBS@_AVLCL) = -IFABLIFBSW_AVLELI * T; i Bump che locas buffer count. 
if UFO or BIG open then quit right here before descriptors get allocated 
IF .FAB C FABSV_UFO J OR .IFAB C IFBS$V_BIO ) 

RETURN RMSSUC( SUC ); 
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2 
r Read in the prologue 1 block which also has the first key descriptor 
é p RETURN_ON_ERROR( CACHE ( 1.512 » 
: P : IF .FAB CFABSL_STV) EQL 0 
P 034 HEN 
2 P 034 
§ P 034 STATUS = RMSERR (RPL) 
35 END ); 

89 35 

a $2 RETURN_ON_ERROR( RMSCHKSUM() ); 

35 $2 Check for correct prologue version 

94 35 if .BKT_ADDR C PLGS$W_VER_NO ] GTRU PLGS$C_VER_3 
95 35 THEN 

96 35 BEGIN 

97 35 RMSRELEASE (0); 

98 $9 4 RETURN RMSERR( PLY ) 

44 3 END; 

01 ' Do not allow this file to be opened if it is a prologue 1 or 2 file, and 
4 $08 } any type of RMS Journalling is enabled. 

04 if -BKT_ADDRCPLGSW_VER_NOJ LSSU PLGSC_VER_3 
06 68 (. IFABCIFBSV_RUJ 

08 20 . [FABCIFBSV_ONLY_RUJ 

10 ¢ . IFABCIFB$V_AT) 

11 7 OR 


| 
FAB CFABSL_ STV] = .STATUS OR 1°16; 
| 
| 
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-JEABCIFBSV.81] 
.IFABLIFBSV_AI) 
THEN 
BEGIN 
RMSRELEASE (0); 


Ne RMSERR(ENV); 
We now have a good prologue in memory 
IFBSB_PLG V Re ] = .BKT_ADDR C PLGSW VER_NO J; 
fe ose Aven -BKT_ADBR (€ PLG$B_AVEN N 2: 
-BKT_ADDR C PLGSB_ ARAN 5 

itis tre. j= “0: 
Allocate and count index descriptors, determine size of key buffers 
BEGIN 
Le. sy 


CAL 
TDx _COMPR, 
KEY_DESC : REF BBLOCK; 


! Index descriptor for primary key the primary key obviously is the largest 
; to date, so set kbufsz 


iFAB C IFBSW_KBUFSZ ] = .BKT_ADDR C KEYS$B_KEYSZ J; 
Start off finding the largest bucket size for key 0 
. -BKT_ADDR C KEYS$B_IDXBKTSZ ] GTRU .BKT_ADDR C KEYSB_DATBKTSZ J 
a ee C IFBSB_BKS J] = .BKT_ADDR C KEYSB_IDXBKTSZ J 
IFAB C IFBSB_BKS ] = .BKT_ADDR C KEYSB_DATBKTSZ J; 
: Assume no compression 
IDX_COMPR = 0; 
Allocate the primary key descriptor 
RETURN_ON_ERROR( RMSAL_KEY_DESC( .BKT_ADDR,1,0 ), RMSRELEASE(O) ); 
IFAB C IFBSB_NUM_KEYS ] = 
KEY_DESC = .BKT_ADDR; 
RETURN_ON_ERROR ( CHECK TWO), 


RASCLO SE3() 
RMSRELEASE (by 
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RM? 


= 
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If tne index or primary key is compressed, set flag. 
if -KEY_DESC C KEYSV_IDX_COMPR J] OR .KEY_DESC C KEYSV_KEY_COMPR J 
IDX_COMPP = 1; 
Get index descriptors for all other keys, block by block 
+ -KEY_DESC C KEYSL_IDXFL J] NEQ 0 
BEGIN 
LOCAL 
OFF ser; 
Save the vbn and the offset which is in this block 


VBN = .KEY_DESC C KEYSL IDXFL J; 
OFFSET = .REY_DESC C KEYSwW_NOFF J; 
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Release current block and the new one 
RETURN_ON_ERROR( RMSRELEASE(O) ); 


wr 


iFAB C IFBSB_NUM_KEYS ) = .I1FAB C IFBSB_NUM_KEYS ) + 1; 
! Set the Largest key size 
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04 
04 
04 
04 
Od 
045 
045 
045 
: Bee RETURN_ON_ERROR( CACHE( .VBN,512 ), 
P 045 IF .FAB CFABSL_STV] EQL 0 
P 046 THEN 
P 046 FAB CFABSL_STV] = .STATUS OR 1°16; 
P 046 STATUS = RMSERR (RPL) 
Ree END ); 
64 
0465 
Bees RETURN_ON_ERROR( RMSCHKSUM() ); 
bee6 } Loop for ail of the key descriptors in this block 
0470 dO 
409 0471 BEGIN 
410 Bere 
oi) Retz H Set the pointer to the new key descriptor 
418 ae: KEY_DESC = .BKT_ADDR + .OFFSET; 
414 Be76 
415 P 047 RETURN_ON_ERROR( CHECK_TWO(), 
416 e ore 
41 P 047 RMSCLOSE3(); 
41 P 0480 RMSRELEASE (0) 
41 ; END ); 
4 
$ 8 
é 33 
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1Soseot9ge PS:81i83 — DISKSUMSMASTERS RMS. SRCSRMSOPEN.832;1°%° (3). 
if. KEY.DESC C KEYSB_KEYSZ J] GTRU .IFAB C IFBSW_KBUFSZ J 
IFAB (C IFBSW_KBUFSZ J] = .KEY_DESC C KEYSB8_KEYSZ J; 
Set the largest bucket size 
bgp tt PEM C KEYSB_IDXBKTSZ ] GTRU .IFAB C IFBSB_BKS J 
IFAB C IFBSB_BKS J] = .KEY_DESC C KEYSB_IDXBKTSZ J; 
Faith PEt C KEYSB_DATBKTSZ J] GTRU .IFAB C IFBS$B_BKS J 
IFAB C IFBSB_BKS J] = .KEY_DESC C KEYS$B_DATBKTSZ ); 
} This index descriptor is ok so allocate one in memory 


RETURN_ON_ERROR( RMSAL_KEY DESC -KEY_DESC,.VBN,.OFFSET ), 
RMSRECEASE(O) ); 


If there is compression on note it 
if -KEY_DESC C KEYSV_IDX_COMPR J 
IDX_COMPR = 1; 

Get the offset to the next key descriptor 

OFFSET = .KEY_DESC C KEYSW_NOFF J 

END 
Leave the loop if the next key descriptor is in another block 
UNTIL .KEY_DESC C KEYSL_IDXFL Jj NEQ .VBN 
END; 


! If >! of the keys have the index compressed, then increase the buffer 
size by two bytes, to store the length and compression counts. 


iF sj1OX_COMPR 
IFAB C IFBSW_KBUFSZ J] = .IFAB C IFBSW_KBUFSZ ] + 2 
END; 
RETURN_ON_ERROR( RMSRELEASE(O) ); 
RETURN RMSSUC() 
END; 


-TITLE te 
-IDENT \v04-060\ 


eee 
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RM3OPEN 16-Sep-1984 01:54: VAX-11 Bliss-32_V4.0-74 P 10 
voer000 RMSOPEN3B 1e-8Sb=1982 P3:8t:83 «UTES UwSAASPERSchns ’shCSemsoPeN.e32:1°%° (49 
.EXTRN RMSALDBUF, RMSCHKS 
SEXTRN RMSCACHE, RMSCLOSE 
-EXTRN RMSRELEASE, RMSAL_KEY_DESC 
.PSECT RMSRMS3,NOWRT, GBL, PIC,2 


OOFC BB 00000 RMSOPEN3B:: 
PUSHR 


co 
~" 


§ #°M<R2,R3,R4,R5,R6,R7> : 0261 
5E 14 C2 00004 SUBL2 #20, SP : 
SA 59 00 00007 MOVL IFAs FILE, IFAB + 032 
$5 0905 ‘ se Soot NOVUL RSIS. RS : $398 
0000 Mie F O018 $B RMSALDBUF : 
68 0 £9 0001 BLBC STATUS, 7$ : 
0084 CA 86 0001C INCW  132CIFAB) + 0334 
03 06 AB 01 5 00 g BBC #1, 6(FAB), 2$ : 0338 
O1A7 31 00025 1$: BRW 35§ : 
FB 22 BA 93 EO 09028 2$: BBS #5, 34(CIFAB), 1$ : 
ee 0020 CLRL R3 ; 0350 
52 0200 BF 3C 0002F MOVZWL #512, R2 : 
51 01 06 00 ov. : 
00006 30 900 7 BSBW RMSCACHE : 
0B 50 €E8 OOO3A BLBS STATUS, 4$ 3 
0c As D5 00030 TSTL 12¢FABS : 
03 13 00040 BEQL 46s 3$ ; 
OOF2 37 0042 BRW 20$ ; 
00E6 31 00045 3$ BRW 19$ : 
00006 30 00048 4$ BSBW §RMSCHKSUM : 0352 
7¢ 30 E9 00048 BLBC STATUS, 11$ ; 
03 74 AS B61 OO4E CMPW © 116(BKT_ADDR), #3 : 0356 
0¢ 1B 0005 BLEQU 5$ ; 
53 D4 00054 CLRL ss RB. : 0359 
00006 30 00056 RMSRELEASE : 
50 872c 68F 63¢ 00059 MOVZWL #34604, RO > 0360 
6A 11 00055 BRB 11$ : 
24 1€ 00060 5S: BGEQU 8$ > 0366 
50 OOAO CA 9 0006 MOVAB 160(IFAB), RO : 0368 
OF 60 01 £0 0006 BBS #i, (RO), 6$ : 
0c 60 £8 90068 BLBS (rb), 6$ : 0370 
08 60 04 €0 OO6E BBS #4, (RO), 6% : 0372 
04 60 02 £0 0007 BBS #2. (RO). 6$ : 0374 
0c 60 Q E1 00076 BBC #3. (RO). 8$ : 0376 
4 QOO7A 6$: CLRL OR : 0379 
00906 0 gore BSBW RUSRELEASE : 
50 8724 BF %3C OO07F MOVZWL #345 6, R : 0380 
65 11 00084 7s: BRB 13$ : 
0087 CA 74 ne 8 0086 8$: MOVB HY bh tg 19343608) ; 0385 
00B0 CA 66 A5 BO 0008 MOVW  102(BKT"ADDR), 176(1FAB) : 9386 
SC AA B4 009 CLRW 92CIFABY : 0388 
00B4 CA 14 AS 98 0009 MOVZBW é (BKT_ADDR), 180(1FAB) > 0404 
0B «OAS OA a3 91 00 CMPB O(BKTZADDR), 11(BKT_ADDR) : 0408 
07 1B OOOA BLEQU 9$ ; 
SE AA OA A? 90 000A MOVB  10(BKT_ADDR), 94(1FAB) > 0410 
05 11 000A BRB 10$ : 
SE AA 08 A5 90 000A9 9S: MOVB 11(BKT_ADDR), 94(1FAB) > 0412 
10 AE D4 AE 10$ CLRL ——- IDX_COMPR : 0416 
7E 01 7D 000B1 MOV = #1, 7=(SP) > 0420 
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w$ep=1986 13:01:92 


BKT_ADDR 
ae, AL Rev. DESC 


MOVL BK Kf ADDR KEY _DESC 
CHECK K TW 


BLBS er aus 
BSBW RMSCLOSE3 


CLRL R3 
BSBW RMSRELEASE 
MOVL 3 ATU 
BRB 1$ 
BBS #3 
BBC #6 
MOVL #1 
MOVAB = 4( 
TSTL (K 
BNEQ 18 
BRW 33 
MOVL (K 
MOVZWL a4 
CLRL R3 
BSBW RMS 
BLBC ST 
LRL 


C R 

MOVZWL #512, R2 

MOVL  VBN, R 

BSBW. RMSCACHE 

BLBS STATUS, 22$ 
*  42(FAB 


US, 30$ 
ADDLS OFFSET, BKT_ADDR, KEY_DESC 
B CK Two 


TSTL 
NEQ 
ISL3 5 
MOVZWL #494 
RB 
BSBW 
BLBC STAT 
SBW CH 
MOVL RO, S 
BLBS STATUS 
BSBW R 
BRB ¢ 
INCB 
MOVZBL 2 
CMPW R 
BLEQU 
MOVZBW 
CMPB 
BLEQU 2 
MOVB 1 


TER: chm” she RM3OPEN.B32; ° 
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RMSOPEN 1h-se -1984 01:54: VAX-11 Bliss-32 V4.0-74 P 13) 
Vv04-0 CHECK_TWO 12-8 08-1 982 OF: 8ti§3 NER SUNGHASTERSCMMS SRC SRMSOPEN.832;1° 7° (4 


; 480 O54) 1 XSBTTL "CHECK U0! | 
; rt b2t8 ! ROUTINE CHECK_TWO ( KEY_DESC : REF BBLOCK ) : RLSCHECK_TWO = 
: 48 0544 1 | | 
: 484 0545 1 ! FUNCTIONAL DESCRIPTION: 
> 485 0546 1! 
; 486 0547 1! Check to make sure that at least two records will fit in 

; 487 0548 1! each index, if not don't even let the user open the file 

; 488 0549 1! since it will only lead to trouble Later 

> 489 0550 1! note: create does check this but rms-11 doesn't 

; 490 0551 1! f we release w/ a new rms-11 that does there would be no way of 

; £33 bee¢ ! creating such files and we could take the check out 

; 49 0554 1 ! CALLING SEQUENCE: 

> 494 0555 1! 

; 495 0556 1! CHECK_TWO( KEY_DESC ) 

; 496 0557 1! 

: 497 0558 1 ! INPUT PARAMETERS: 

> 498 0559 1! 

; 499 0560 1! KEY_DESC == pointer to the on-disk key descriptor 

; 500 0561 1! 

; 501 R206 1 ! IMPLICIT INPUTS: 

; 502 0563 1! : 

; 503 0564 1! FAB -- so that in case of an error, the guilty key of reference 

; 504 0565 1! can be passed back in the stv 

3 309 0566 1! 

; 506 0567 1 ! OUTPUT PARAMETERS: 

; 507 0568 1! none | 
; 508 0569 1! 
; 3 0570 1 ! IMPLICIT OUTPUTS: 

3; 310 0571 1! none 

> «511 0572 1! 

s Si2 0573 1 ! ROUTINE VALUE: 

zs ST 0574 1! : : 

> 514 0575 1! KSI if two keys will not fit in the index 

3 315 0576 1! rmssuc if they will 

3; 316 0577 1! 

3 Si 0578 1! SIDE EFFECTS: 

; 518 0579 1! none 

; 519 0580 1! 

3 320 0581 1 !-- 

, S21 bee 1 

3 See 0583 2 BEGIN 

g Ses B288 2 
; $24 0585 2 EXTERNAL REGISTER | 
; 525 0586 2 R_IFAB ° 

: 526 0587 2 R-FAB_STR; 

; 527 0588 § b ; 
; 528 0589 ! Make sure at least 2 keys will fit in the index level 
; 4 0590 2 : 
3; 3a0 0591 2 LOCAL i 

; 531 0998 2 KEYSZ, ' Size of key 
; 236 0394 BYTES; ! Number of bytes available in bucket 
; 232 595 BYTES = ( .KEY_DESC C KEY$B_IDXBKTSZ ] * 512 ) = BKTSC_OVERHDSZ - 1; 
3 232 0336 $ KEYSZ = .KEY_DESC C KEY$B_KEYSZ J; 


D 10 | 
RM3OPEN 16-Sep-1984 01:54: VAX=11 Bliss-32 V4.0-74 Page 14) RMS 
v04=0 CHECK_TWO 19-88-1382 OF Bri g3 PL EXSVMEMASTERS CAMS. SRC TRMSOPEN.B321 wert vO4 
; 5 7 0598 IF .1FAB C IFB$B_PLG_VER J LSSU PLGSC_VER_3 
; 2 0599 THEN 
: 539 600 BEGIN 
: 540 601 IF 2 * ( .KEYSZ + 2 + IRCSC_IDXPTRBAS + IRCSC_IDXOVHDSZ) GTRU .BYTES 
; 241 060 THEN | 
; 4g 0603 4 BEGIN 
: 54 0604 4 FAB C FABSL_STV ] = .KEY_DESC C KEYSB_KEYREF J; 
> 544 0605 4 RETURN RMSERR(KSI); 
: 545 0606 3 END; 
: 546 0607 END 
: 547 0608 ELSE 
: 548 0609 BEGIN 
: 549 0610 
; 550 0611 BYTES = .BYTES - 3; 
> 551 O61¢ ; 
+4 226 061 IF .KEYSZ LEQU KEYSC_MAX_INDEX 
; 55 0614 3 H 
3; 554 0615 4 BEGIN ! fixed index record 
; 555 0616 4 
: 556 0617 4 IF 2 * ( .KEYSZ + 4 ) GTRU .BYTES 
: 557 0618 4 THEN 
: 558 0619 5 N 
; 559 0620 5 FAB C FABSL_STV J = .KEY_DESC C KEYSB_KEYREF J; 
: 560 0621 § RETURN RMSERR(KSI); 
; 561 0622 4 END; 
; 62 0623 4 END 
; 56 0624 3 ELSE ; 
3; 564 0625 4 BEGIN ! variable index records 
: 565 0626 4 
: 566 0627 4 IF 2 * ( .KEYSZ + 4 + 2.) GTRU .BYTES 
: 567 0628 4 THEN 
; 568 0629 5 BEGIN 
: 569 0630 5 FAB C FABSL_STV] = .KEY_DESC C KEYS$B_KEYREF ]; 
: 570 0631 5 RETURN RMSERR(KS1); 
; or 0632 4 END; 
: tre 0633 3 END; 
: 573 0634 2 END; 
: 574 0635 2 
: 575 0636 : RETURN RMSSUC() 
: 576 0637 
s 577 0638 1 END; 
OC BB 00000 CHECK_TwO: 
PUSHR #*M<R2,R3> : 0542 
50 0A Ab 9A 00002 MOVZBL 10(KEY_DESC), RO : 0595 
50 50 09 78 00006 ASHL #9, ROT R ; 
53 F1 AO 9E OOOOA MOVAB -15(ROS, BYTES ; 
50 14 Abd 9A O000E MOVZBL 20(KEY DESC), KEYSZ : 0596 
52 50 01 78 0001 ASHL #1, KEYS2, Re > 0601 
03 00B7 CA 91 0016 CMPB =s« BSC IFAB). # : 0598 
09 1€ 0001B BGEQU 1$ : 
51 OA A2 9E 00010 MOVAB 10(R2), R1 > 0601 
53 51 D1 00021 CMPL R1, BYTES F 


10 
RM3OPEN 1b. Sep-1984 01:54: VAX-11 Bliss-32 V P 
yo 000 CHECK_TWO 12-Sep-1984 9b: 8ti§3 DISK KSVMGM TER: chang’ she RM30PEN.P32;1 
15 11 00024 BRB 4 
53 a3 C2 00026 1$ SUBL2 i, BYTES 
06 0 D1 00029 CMPL ReYS2. #6 
08 1A 0002C BGTRU 
50 08 iA 5 00 5 MOVAB (R2), RO 
04 11 000 BRB $ 
29 oc a¢ 9E 00034 $$ MOVAB Ng RO 
. dc 8 $6 5 i$ BLEGU ne ovies 
oc 8 «AB 1 A6 9A 0003D MOVZBL 21(KEY_DESC), 12(FAB) 
50 8784 8F 3C B2045 MOVZWL #34692, RO 
03 11 Bebe BRB 6$ 
50 01 DO 00049 5$: MOVL #1, R 
OC BA QO04C 68: POPR #*M<R2,R3> 
05 0004E RSB 
; Routine Size: 79 bytes, Routine Base: RMS$RMS3 + OIDA 
; 578 0639 1 
; 579 0640 1 END 
; 580 0641 1 
; 581 0642 0 ELUDOM 
3 PSECT SUMMARY 
; Name Bytes Aftributes 
: RMSRMS3 553 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
: eoccecce Symbols -------- Pages Processing 
; File Total Loaded Percent Mapped Time 
: -$255$DUA28: CRMS .OBJIRMS.L32;1 3109 67 2 154 00:00.4 
; COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:RM3OPEN/OBJ=0BJ$:RMSOPEN MSRC$:RMSOPEN/UPDATE=(ENHS:RMSOPEN) 
3; Size: 553 sede + 0 data bytes 
; Run Time: 00:14.8 


See Fe Se Ge Be Be Be Ge Ge Se Fe Ge Fe Fe 


Re sees? 


F 10 
RASOPEN -Sep-1984 01:54: - ~ -0- RMS 
tee 3 CHECK_TWO 16-Sep-1984 01:54:23  VAX=11 Bliss-32 V4.0-742 Page 16 


; Elapsed Time: : 9.5 
3 Lines/CPU Min: $ 

3; Lexemes/CPU-Min: 17788 

; Memo ed 


ry Used: 193 pages 
; Compilation Complete: 
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